unit GButtons;

interface

uses Classes, SysUtils, Windows;

type
  TGButton = class
    Rect:TRect;
    State,Visible:Boolean;
    ImageFile:String;
    Click:procedure;
    procedure InitRect(Left,Top,Height,Width:Integer);
    procedure Show;
    procedure Hide;
  end;

var GameButtons:TList;

implementation

procedure TGButton.Show;
begin
  Visible:=True;
end;

procedure TGButton.Hide;
begin
  Visible:=False;
end;

procedure TGButton.InitRect;
begin
  Rect.Left:=Left;
  Rect.Top:=Top;
  Rect.Right:=Left+Width;
  Rect.Bottom:=Top+Height;
end;

end.
